home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / ARCHIVE / V12N10.ZIP;1 / INPUT.ZIP / INP.SCR < prev    next >
Encoding:
Text File  |  1992-09-21  |  1.1 KB  |  40 lines
  1. N INP.COM
  2. E 144 "TEMP.BAT",0
  3. A 100
  4. MOV     DX,0144               ; file name
  5. MOV     AX,3C00
  6. MOV     CX,0
  7. INT     21                    ; create file
  8. PUSH    AX                    ; file handle in stack
  9. MOV     CH,00
  10. MOV     CL,[080]              ; length of command string
  11. JCXZ    11F                   ; skip if no command line
  12. DEC     CL                    ; drop first char (space)
  13. POP     BX                    ; get file handle
  14. PUSH    BX
  15. MOV     AH,40
  16. MOV     DX,082                ; command string offset
  17. INT     21                    ; write to file
  18. MOV     AH,0A
  19. MOV     DX,0144
  20. MOV     BYTE PTR [0144],50    ; max. length of 80 characters
  21. INT     21                    ; input string
  22. MOV     CH,00
  23. MOV     CL,[0145]             ; length of string
  24. POP     BX                    ; get file handle
  25. PUSH    BX
  26. MOV     AH,40
  27. MOV     DX,0146               ; input string offset
  28. INT     21                    ; write to file
  29. POP     BX
  30. MOV     AH,3E
  31. INT     21                    ; close file
  32. MOV     AX,4C00
  33. INT     21                    ; exit to dos
  34.  
  35. R CX
  36. 4D
  37. W
  38. Q
  39.  
  40.